#!/usr/bin/perl 
open(FILEIN,"p96.bal");
open(FILEOUT,">sortie.txt");
while($ligne=<FILEIN>)
{
  if ($ligne=~ /<TXT>(.*)<BEBE>2/ )
  {
    my $a=$1;
    print FILEOUT $a."\n";
  }
}
